From: Juri Linkov <juri@jurta.org>
Date: Fri, 28 Aug 2009 23:48:46 +0000 (+0000)
Subject: (magic-fallback-mode-alist): Add ZIP magic number
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10812
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=52c17a1b27cffa4160045cc7dc5140e7eba51db5;p=emacs.git

(magic-fallback-mode-alist): Add ZIP magic number
associated with `archive-mode'.
---

diff --git a/lisp/files.el b/lisp/files.el
index 2c695c1d4bd..a23408a0beb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2402,6 +2402,7 @@ If FUNCTION is nil, then it is not called.  (That is a way of saying
 
 (defvar magic-fallback-mode-alist
   `((image-type-auto-detected-p . image-mode)
+    ("\\(PK00\\)?[P]K\003\004" . archive-mode) ; zip
     ;; The < comes before the groups (but the first) to reduce backtracking.
     ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.
     ;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely.